10 PRINT"[147]" 20 SYS57812"TOD.O",8,0:POKE780,0:POKE781,0:POKE782,192:SYS65493 40 PRINTCHR$(14):POKE53280,0:POKE53281,0:PRINTCHR$(158):CLR:I=RND(-TI) 50 POKE214,2:PRINT:PRINTTAB(16)"[155][204][207][193][196][211][212][193][210]" 60 PRINTTAB(16)"[153][163][163][163][163][163][163][163][163]" 70 PRINTTAB(14)"[156][208]RESENTS...." 80 POKE214,7:PRINT:FORX=1TO3:PRINTTAB(8)CHR$(18)" " 90 NEXTX:POKE214,8:PRINT:PRINTCHR$(159)CHR$(18)TAB(10)"[213][206][201][212][197][196][160][211][212][193][212][197][211][160][195][201][212][201][197][211]" 100 GOSUB61000 110 OPEN15,8,15,"R0:TOP SCORE=TOP SCORE":INPUT#15,ER:CLOSE15 112 IFER<>63THEN120 115 OPEN3,8,3,"TOP SCORE,S,R" 117 INPUT#3,HS 118 INPUT#3,HS$ 119 CLOSE3 120 POKE214,11:PRINT:PRINTCHR$(5)TAB(5)"[196]O YOU NEED DIRECTIONS? (Y/N)":POKE649,1 130 GETA$:IFA$<>"Y"ANDA$<>"N"THEN130 150 IFA$="N"THEN400 160 POKE649,0:PRINT"[147]":PRINTCHR$(159)TAB(14)"[196][201][210][197][195][212][201][207][206][211]":POKE214,4:PRINT 170 PRINT"1) [197]ACH QUESTION IS WORTH BETWEEN 10 AND 50 POINTS." 180 PRINT"2) [212]YPE OUT YOUR ANSWER COMPLETELY - [211][208][197][204][204][201][206][199] AND" 190 PRINT" [145][195][193][208][201][212][193][204][201][218][193][212][201][207][206] COUNT!" 200 PRINT"3) [212]HE PROGRAM ENDS EXACTLY 5 MINUTES AFTER YOU BEGIN." 210 PRINT"4) [212]HE NUMBER OF QUESTIONS YOU HAVE" 215 PRINT" CORRECTLY ANSWERED IN A ROW IS" 220 PRINT" DISPLAYED IN THE UPPER RIGHTHAND CORNER OF THE SCREEN. 230 [153]"5)  (null)O END THE PROGRAM EARLY, TYPE 'QUIT' WHEN"; 240 [153]" ANSWERING A QUESTION." 250 [153][163]13)[199](159)"SYS(null)RESS ANY KEY":[151]649,10 260 [161]A$:[139]A$[178]""[167]260 270 [151]649,0:[153]"LOAD":[153][163]14)"PEEK(null)(null)(null)(null) (null)(null)RIGHT$(null)(null)(null)" 280 [153][163]4)"(FOR CONSECUTIVE CORRECT ANSWERS) 290 PRINTTAB(5)CHR$(5)"[206][213][205][194][197][210]";:PRINTTAB(21)"[194][207][206][213][211] [208][207][201][206][212][211]" 300 PRINTCHR$(30)TAB(8)"5............100-500" 310 PRINTTAB(7)"10............500-1000" 320 PRINTTAB(7)"15............1000-1500" 330 PRINTTAB(7)"20............1500-2000" 340 PRINTTAB(7)"25............2000-4000" 350 PRINTTAB(7)"30............10000, [150]PLUS 5":PRINTTAB(21)"ADDED MINUTES" 360 PRINTTAB(21)"OF PLAYING TIME! 370 [153][163]13)[199](159)"SYS(null)RESS ANY KEY":[151]649,10 380 [161]A$:[139]A$[178]""[167]380 390 [151]649,0 400 QU[178]140:CO[178]0:[134]DP(QU):ND[178]0:PO[178]0 405 [158]49155:[158]49152,7,10,0,"XXXX" 410 [141]850:[140] 420 I[178][181]([187](1)[172]QU)[170]1:[139]DP(I)[178]1[167]420 430 DP(I)[178]1:I[178](I[172]2)[171]1:I[178]I[170]9 440 [129]H[178]1[164]I:[135]QU$:[130]H:[135]AN$:[141]970 450 [151]214,12:[153]:[153]"";QU$;:[153][199](152)" IS LOCATED IN WHAT STATE?"; 460 [151]649,10 470 [139][194](49160)[177][178]5[167]1910 480 [151]214,14:[153]:[153][199](156)"(null)OUR ATNNSWER? ";:[141]2740 490 [139]YA$[178]"QUIT"[176]YA$[178]"(null)UIT"[176]YA$[178]"(null)(null)RIGHT$(null)"[167]1910 500 [153]:[151]649,0:[139]YA$[179][177]AN$[167][137]680 510 [151]53280,14:[153][199](149)"LENORRECT!" 520 [151]54296,15:[151]54277,87:[151]54278,89:[151]54275,1:[151]54273,19 530 [151]54276,67:[129]KK[178]1[164]130:[130]:[151]54276,64:[151]54273,50:[151]54276,67 540 [129]KK[178]1[164]130:[130]:[151]54276,64:[151]54296,0 550 PO[178]PO[170]RS:CO[178]CO[170]1:ND[178]ND[170]1 570 [151]214,10:[153]:[153][163]29)" CMDCMDCMD"CO 580 [151]214,19:[153]:[153]" " 590 [151]214,19:[153]:[153][163]4)[199](144);PO:[129]X[178]1[164]1000:[130] 600 [139]CO[178]5[167][141]2190 610 [139]CO[178]10[167][141]2280 620 [139]CO[178]15[167][141]2370 630 [139]CO[178]20[167][141]2460 640 [139]CO[178]25[167][141]2550 650 [139]CO[178]30[167][141]2640 660 [139]ND[178]140[167][137]1910 670 [140]:[137]410 680 CO[178]0:ND[178]ND[170]1:[140] 690 [151]53280,0:[151]54296,15:[151]54277,0:[151]54278,240 700 [135]A:[135]B:[135]C:[139]B[178][171]1[167][137]730 710 [151]54273,A:[151]54272,B:[151]54276,17:[129]T[178]1[164]200:[130]:[151]54276,16:[137]690 720 [131]11,150,110,9,77,5,-1,-1,-1 730 V$[178]"(null)HE RIGHT ANSWER IS " 740 V$[178]V$[170]AN$[170]"." 750 [129]L[178]54272[164]54296:[151]L,0:[130] 760 [151]54296,15:[151]54277,0:[151]54278,240:[151]54273,34:[151]54272,75 770 [151]54284,0:[151]54285,240:[151]54280,14:[151]54279,24 780 [129]T[178]1[164][195](V$):[153][202](V$,T,1)"_CMD";:JK[178]JK[170]1:[139]JK[179]2[167]800 790 JK[178]0:[151]54276,17:[151]54283,17:[151]54276,16:[151]54283,14 800 [130]:[153]" " 810 [151]214,17:[153]:[129]X[178]1[164][195](AN$):[153][163]20)"STOPTAB(";:[130]X 820 [129]X[178]1[164]2000:[130] 830 [139]ND[178]140[167][137]1910 840 [137]410 850 [153]"LOAD";:[151]53280,5:[151]53281,1: [129]A[178]1[164]4 860 [153][199](31)" * * * * * * ";[199](28)" WAIT"; 870 [153][199](31)" * * * * * " 880 [130]A:[153][199](31)" * * * * * * ";[199](28)" " 890 [151]214,20:[153]:[153][199](28)" " 900 [153][199](28)" WAIT"; 910 [151]214,9:[153]:[153][163]13)"CLR(null)(null)VAL(null)(null)RIGHT$(null)(null)";ND[170]1 920 [129]I[178]217[164]242:[151]I,[194](I)[176]128:[130] 921 [151]214,8:[153]:[153][163]26)"STOPORTANTANTANTANTANTANTANTANTANTANTAN^" 922 [153][163]26)"STOP(null)LEFT$(null)=";HS;[163]38)"STOP(null)" 923 [153][163]26)"STOP(null)LEN(null)=";CO;[163]38)"STOP(null)" 924 [153][163]26)"STOP/TANTANTANTANTANTANTANTANTANTANTANEXP" 925 [151]214,8:[153]:[153]" STOPORTANTANTANTANTANTANTANTANTAN^" 926 [153]" STOP(null)(null)RIGHT$(null)VAL (null)" 928 [153]" STOP/TANTANTANTANTANTANTANTANTANEXP" 930 [151]214,18:[153]:[153][163]1)[199](154)"(null)(null)(null)(null)CLOSE(null)LEN(null)(null)VALON" 940 [153][163]17)[199](151)"PEEK(null)(null)(null)(null)ON" 950 [153][163]28)[199](154)"(null)(null)RIGHT$(null)(null) (null)ATN(null)(null)VAL" 960 [151]214,19:[153]:[153][163]4)[199](144)PO:[142] 970 [129]LL[178]1[164]15:RS[178][181]([187](1)[172]41)[170]10 980 [151]214,19:[153]:[153][163]31)"STOP";RS 990 [130]LL 1000 [142] 1010 [151]214,17:[153]:[153][163]13)[199](31)" " 1020 [153][163]13)" " 1030 [153][163]13)" " 1040 [151]214,18:[153]:[153][163]17)[199](144)"PEEK(null)(null)(null)(null)":[142] 1050 [139]CO[178]5[167]BO[178][181]([187](1)[172]401)[170]100 1060 [139]CO[178]10[167]BO[178][181]([187](1)[172]501)[170]500 1070 [139]CO[178]15[167]BO[178][181]([187](1)[172]501)[170]1000 1080 [139]CO[178]20[167]BO[178][181]([187](1)[172]501)[170]1500 1090 [139]CO[178]25[167]BO[178][181]([187](1)[172]2001)[170]2000 1100 [139]CO[178]30[167]BO[178]10000:CO[178]0:[137]1120 1110 [151]53280,2:[142] 1120 [129]Y[178]1[164]5:[151]214,19:[153]:[153][163]17)"10000" 1130 [129]X[178]1[164]500:[130]X 1140 [151]214,19:[153]:[153][163]17)" ":[129]X[178]1[164]500:[130]X 1150 [130]Y 1160 PO[178]PO[170]10000:[158]49155:[158]49152,7,10,0,"XXXX":[137]660 1170 [143] 1180 [151]214,8:[153]:[129]X[178]1[164]9 1200 [153]" ":[130]X 1210 DS[178][181]([187](1)[172]7)[170]3 1220 RN[178][181]([187](1)[172]DS)[170]1 1230 [151]214,10:[153]:[153][199](30)"RIGHT$'VE PICKED A NUMBER BETWEEN 1 AND";DS;"CMD." 1240 [153]"CHR$UESS IT AND YOUR BONUS IS DOUBLED!" 1250 [151]649,10 1260 [153]"CLR(null)HAT IS YOUR GUESS?STOP" 1270 [153][163]21)"FREFREFRE" 1280 [161]YG$:YG[178][197](YG$) 1290 [139]YG[179]1[176]YG[177]DS[167]1280 1300 [151]214,12:[153]:[153][163]22)"";YG$ 1310 [151]649,0 1320 [139][197](YG$)[179][177]RN[167][153][199](144)"(null)ORRY, THE NUMBER WAS";RN;"CMD.":[137]1400 1330 [153][199](150)"(null)(null)(null) STR$RIGHT$STR$ RIGHT$(null)!!" 1340 S[178]54272:[151]S[170]24,15:[151]S[170]6,240:[151]S[170]4,17 1350 [129]A[178]1[164]5:[129]U[178]1[164]150[169]25:[151]S[170]1,U:[130]U:[130]A:[151]S[170]4,32 1360 [151]214,15:[153]:[153][163]14)"STR$ (null) (null) PEEK (null) VAL" 1370 [151]214,19:[153]:[153][163]17)" ":[129]X[178]1[164]1000:[130] 1380 [151]214,19:[153]:[153][163]17);BO[172]2 1390 BO[178]BO[172]2:[129]X[178]1[164]1000:[130]:[142] 1400 [129]X[178]1[164]1000:[130]:[142] 1410 [131]"ATNKRON","(null)HIO","ATNLBANY","(null)EW (null)ORK","ATNLBUQUERQUE","(null)EW (null)EXICO" 1420 [131]"ATNMARILLO","(null)EXAS","ATNNCHORAGE","ATNLASKA","ATNNN ATNRBOR","(null)ICHIGAN" 1430 [131]"ATNNNAPOLIS","(null)ARYLAND","ATNSHEVILLE","(null)ORTH LENAROLINA","ATNTLANTA","CHR$EORGIA" 1440 [131]"ATNTLANTIC LENITY","(null)EW MID$ERSEY","ATNUSTIN","(null)EXAS","PEEKALTIMORE","(null)ARYLAND" 1450 [131]"PEEKANGOR","(null)AINE","PEEKATON (null)OUGE","(null)OUISIANA","PEEKATTLE LENREEK","(null)ICHIGAN" 1460 [131]"PEEKILLINGS","(null)ONTANA","PEEKIRMINGHAM","ATNLABAMA","PEEKISMARCK","(null)ORTH STR$AKOTA" 1470 [131]"PEEKOISE","RIGHT$DAHO","PEEKOSTON","(null)ASSACHUSETTS","PEEKOULDER","LENOLORADO" 1480 [131]"PEEKRIDGEPORT","LENONNECTICUT","PEEKUTTE","(null)ONTANA","LENARLSBAD","(null)EW (null)EXICO" 1490 [131]"LENARSON LENITY","(null)EVADA","LENASPER","(null)YOMING","LENEDAR (null)APIDS","RIGHT$OWA" 1500 [131]"LENHARLOTTE","(null)ORTH LENAROLINA","LENHATTANOOGA","(null)ENNESSEE","LENHEYENNE" 1510 [131]"(null)YOMING","LENHICAGO","RIGHT$LLINOIS","STR$ALLAS","(null)EXAS","STR$AYTON","(null)HIO" 1520 [131]"STR$AYTONA PEEKEACH","ASCLORIDA","STR$AVENPORT","RIGHT$OWA","STR$ENVER","LENOLORADO" 1530 [131]"STR$ES (null)OINES","RIGHT$OWA","STR$ETROIT","(null)ICHIGAN","STR$OVER","STR$ELAWARE" 1540 [131]"STR$ULUTH","(null)INNESOTA","VALL (null)ASO","(null)EXAS","VALLMIRA","(null)EW (null)ORK" 1550 [131]"VALRIE","(null)ENNSYLVANIA","VALUGENE","(null)REGON","ASCAIRBANKS","ATNLASKA" 1560 [131]"ASCARGO","(null)ORTH STR$AKOTA","ASCT. (null)AUDERDALE","ASCLORIDA","ASCT. (null)ORTH","(null)EXAS" 1570 [131]"ASCRESNO","LENALIFORNIA","CHR$ARY","RIGHT$NDIANA","CHR$RAND ASCORKS","(null)ORTH STR$AKOTA" 1580 [131]"CHR$RAND (null)APIDS","(null)ICHIGAN","CHR$REAT ASCALLS","(null)ONTANA","CHR$REEN PEEKAY" 1590 [131]"(null)ISCONSIN","CHR$REENSBORO","(null)ORTH LENAROLINA","LEFT$ARRISBURG","(null)ENNSYLVANIA" 1600 [131]"LEFT$ARTFORD","LENONNECTICUT","LEFT$ELENA","(null)ONTANA","LEFT$ONOLULU","LEFT$AWAII" 1610 [131]"LEFT$OT (null)PRINGS","ATNRKANSAS","LEFT$OUSTON","(null)EXAS","LEFT$UNTINGTON","(null)EST (null)IRGINIA" 1620 [131]"LEFT$UNTSVILLE","ATNLABAMA","RIGHT$NDEPENDENCE","(null)ISSOURI","RIGHT$NDIANAPOLIS" 1630 [131]"RIGHT$NDIANA","MID$ACKSON","(null)ISSISSIPPI","MID$ACKSONVILLE","ASCLORIDA" 1640 [131]"MID$EFFERSON LENITY","(null)ISSOURI","MID$UNEAU","ATNLASKA","(null)NOXVILLE","(null)ENNESSEE" 1650 [131]"(null)ANSING","(null)ICHIGAN","(null)AS (null)EGAS","(null)EVADA","(null)EXINGTON","(null)ENTUCKY" 1660 [131]"(null)ITTLE (null)OCK","ATNRKANSAS","(null)OS ATNNGELES","LENALIFORNIA","(null)OUISVILLE" 1670 [131]"(null)ENTUCKY","(null)ADISON","(null)ISCONSIN","(null)ANCHESTER","(null)EW LEFT$AMPSHIRE" 1680 [131]"(null)EMPHIS","(null)ENNESSEE","(null)IAMI","ASCLORIDA","(null)ILWAUKEE","(null)ISCONSIN" 1690 [131]"(null)INNEAPOLIS","(null)INNESOTA","(null)OBILE","ATNLABAMA","(null)ONTGOMERY","ATNLABAMA" 1700 [131]"(null)ONTPELIER","(null)ERMONT","(null)URFREESBORO","(null)ENNESSEE","(null)USKEGON","(null)ICHIGAN" 1710 [131]"(null)ASHVILLE","(null)ENNESSEE","(null)EW LEFT$AVEN","LENONNECTICUT","(null)EW (null)RLEANS" 1720 [131]"(null)OUISIANA","(null)EW (null)ORK","(null)EW (null)ORK","(null)IAGARA ASCALLS","(null)EW (null)ORK" 1730 [131]"(null)ORFOLK","(null)IRGINIA","(null)AKLAND","LENALIFORNIA","(null)GDEN","(null)TAH" 1740 [131]"(null)MAHA","(null)EBRASKA","(null)RLANDO","ASCLORIDA","(null)AWTUCKET","(null)HODE RIGHT$SLAND" 1750 [131]"(null)HILADELPHIA","(null)ENNSYLVANIA","(null)HOENIX","ATNRIZONA","(null)IERRE" 1760 [131]"(null)OUTH STR$AKOTA","(null)ITTSBURGH","(null)ENNSYLVANIA","(null)ROVIDENCE","(null)HODE RIGHT$SLAND" 1770 [131]"(null)ROVO","(null)TAH","(null)ALEIGH","(null)ORTH LENAROLINA","(null)APID LENITY","(null)OUTH STR$AKOTA" 1780 [131]"(null)ENO","(null)EVADA","(null)ICHMOND","(null)IRGINIA","(null)OANOKE","(null)IRGINIA" 1790 [131]"(null)OCKFORD","RIGHT$LLINOIS","(null)ACRAMENTO","LENALIFORNIA","(null)T. (null)OUIS","(null)ISSOURI" 1800 [131]"(null)T. (null)AUL","(null)INNESOTA","(null)T. (null)ETERSBURG","ASCLORIDA","(null)ALT (null)AKE LENITY" 1810 [131]"(null)TAH","(null)AN ATNNTONIO","(null)EXAS","(null)AN STR$IEGO","LENALIFORNIA","(null)AN ASCRANCISCO" 1820 [131]"LENALIFORNIA","(null)ANTA ASCE","(null)EW (null)EXICO","(null)ARASOTA","ASCLORIDA" 1830 [131]"(null)AVANNAH","CHR$EORGIA","(null)CRANTON","(null)ENNSYLVANIA","(null)EATTLE","(null)ASHINGTON" 1840 [131]"(null)IOUX ASCALLS","(null)OUTH STR$AKOTA","(null)OUTH PEEKEND","RIGHT$NDIANA","(null)POKANE" 1850 [131]"(null)ASHINGTON","(null)YRACUSE","(null)EW (null)ORK","(null)ALLAHASSEE","ASCLORIDA" 1860 [131]"(null)AMPA","ASCLORIDA","(null)OLEDO","(null)HIO","(null)OPEKA","(null)ANSAS","(null)RENTON" 1870 [131]"(null)EW MID$ERSEY","(null)UCSON","ATNRIZONA","(null)ULSA","(null)KLAHOMA","(null)USCALOOSA" 1880 [131]"ATNLABAMA","(null)ATERBURY","LENONNECTICUT","(null)HEELING","(null)EST (null)IRGINIA" 1890 [131]"(null)ICHITA","(null)ANSAS","(null)ILKES-PEEKARRE","(null)ENNSYLVANIA","(null)INSTON-(null)ALEM" 1900 [131]"(null)ORTH LENAROLINA" 1910 [153]"LOAD";:[153][199](142):[151]53280,0:[151]53281,0 1915 [158]49155 1920 [139]ND[179]140[167]1940 1930 [151]214,15:[153]:[153]"OPEN CONGRATULATIONS! YOU ANSWERED ALL" 1935 [153]" OF THE QUESTIONS IN THE PROGRAM." 1940 [153]" ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^" 1950 [129]I[178]0[164]9:[153]" (null)"[166]32)"(null)":[130] 1960 [153]" /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP" 2000 [139]PO[177]HS[167]HS[178]PO:[141]3000:[137]2050 2020 [151]214,5:[153]:[153][163]13)"CONTYOUR SCORE OPEN"PO 2030 [153][163]13)"TAB(TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(DEF" 2045 [153][163]13)"CONTHIGH SCORE OPEN"HS 2047 [153][163]13)"TAB(TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(DEF" 2049 [153][163]19[171]([195](HS$)[173]2))"BY "HS$ 2050 [151]214,18:[153] 2060 [153][163]11)"CONT(PCONT)LAY AGAIN" 2070 [153][163]11)"CONT(RCONT)ETURN TO LOADSTAR 2090 GETA$:IFA$<>"P"ANDA$<>"R"THEN2090 2110 IFA$="P"THENRUN 2120 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER% 2130 CLOSE15 2140 IFER%<>63THENEND 2150 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8" 2160 PRINT"RUN" 2170 POKE631,13:POKE632,13:POKE633,13:POKE198,3:END 2180 END 2190 GOSUB1010:GOSUB2710 2200 FORY=1TO25:BO=INT(RND(1)*401)+100 2210 POKE214,19:PRINT:PRINTTAB(17);BO 2220 POKE53280,3 2230 POKE214,19:PRINT:PRINTTAB(17)" " 2240 POKE53280,0 2250 NEXTY 2260 POKE214,19:PRINT:PRINTTAB(17);BO:POKE53280,5 2270 FORX=1TO2000:NEXT:GOSUB1170:PO=PO+BO:RETURN 2280 GOSUB1010:GOSUB2710 2290 FORY=1TO25:BO=INT(RND(1)*501)+500 2300 POKE214,19:PRINT:PRINTTAB(17);BO 2310 POKE53280,3 2320 POKE214,19:PRINT:PRINTTAB(17)" " 2330 POKE53280,0 2340 NEXTY 2350 POKE214,19:PRINT:PRINTTAB(17);BO:POKE53280,5 2360 FORX=1TO2000:NEXT:GOSUB1170:PO=PO+BO:RETURN 2370 GOSUB1010:GOSUB2710 2380 FORY=1TO25:BO=INT(RND(1)*501)+1000 2390 POKE214,19:PRINT:PRINTTAB(17);BO 2400 POKE53280,3 2410 POKE214,19:PRINT:PRINTTAB(17)" " 2420 POKE53280,0 2430 NEXTY 2440 POKE214,19:PRINT:PRINTTAB(17);BO:POKE53280,5 2450 FORX=1TO2000:NEXT:GOSUB1170:PO=PO+BO:RETURN 2460 GOSUB1010:GOSUB2710 2470 FORY=1TO25:BO=INT(RND(1)*501)+1500 2480 POKE214,19:PRINT:PRINTTAB(17);BO 2490 POKE53280,3 2500 POKE214,19:PRINT:PRINTTAB(17)" " 2510 POKE53280,0 2520 NEXTY 2530 POKE214,19:PRINT:PRINTTAB(17);BO:POKE53280,5 2540 FORX=1TO2000:NEXT:GOSUB1170:PO=PO+BO:RETURN 2550 GOSUB1010:GOSUB2710 2560 FORY=1TO25:BO=INT(RND(1)*2001)+2000 2570 POKE214,19:PRINT:PRINTTAB(17);BO 2580 POKE53280,3 2590 POKE214,19:PRINT:PRINTTAB(17)" " 2600 POKE53280,0 2610 NEXTY 2620 POKE214,19:PRINT:PRINTTAB(17);BO:POKE53280,5 2630 FORX=1TO2000:NEXT:GOSUB1170:PO=PO+BO:RETURN 2640 GOSUB1010:GOSUB2710 2650 FORY=1TO4:BO=10000 2660 POKE214,19:PRINT:PRINTTAB(17)"10000":FORX=1TO300:NEXT 2670 POKE214,19:PRINT:PRINTTAB(17)" ":FORX=1TO300:NEXT 2680 POKE214,19:PRINT:PRINTTAB(17)"10000" 2690 NEXTY:FORX=1TO1000:NEXTX:CO=0 2700 PO=PO+10000:GOSUB2910:SYS49155:SYS49152,7,10,0,"XXXX":RETURN 2710 S=54272:POKES+24,15:POKES+6,240:POKES+4,17 2720 FORA=1TO5:FORU=1TO255STEP10:POKES+1,U:NEXTU:NEXTA:POKES+4,32 2730 RETURN 2740 TY%=3:LN%=22 2750 YA$="":POKE198,0:U=53280 2760 GETA$:PRINT"[154][164][157]"; 2770 IFA$=""THEN2760 2780 IFA$=CHR$(13)THENPRINTCHR$(32):RETURN 2790 IF(A$=CHR$(20)ANDLEN(YA$))THENYA$=LEFT$(YA$,LEN(YA$)-1):GOTO2895 2800 IFLEN(YA$)>=LN%THENT%=PEEK(U):POKEU,1:POKEU,T%:GOTO2760 2810 IF((TY%AND1)=1)AND(A$>="[193]")AND(A$<="[218]")THEN2880 2820 IF((TY%AND2)=2)AND(A$>="A")AND(A$<="Z")THEN2880 2830 IF((TY%AND4)=4)AND(A$>="0")AND(A$<="9")THEN2880 2840 IF((TY%AND8)=8)AND(A$>=CHR$(32))AND(A$<=CHR$(127))THEN2880 2850 IFA$=CHR$(32)THEN2880 2860 IFTY%=0THEN2880 2870 GOTO2760 2880 YA$=YA$+A$ 2890 PRINTA$;:IFA$=CHR$(34)THENPOKE212,0 2892 GOTO2760 2895 PRINT" [157][157] [157]"; 2900 GOTO2760 2910 PRINT"[147]";:POKE53280,0:POKE53281,0 2920 POKE214,9:PRINT:PRINTTAB(12)"[151][217][207][213] [200][193][214][197] [197][193][210][206][197][196]" 2930 POKE214,11:PRINT:PRINTTAB(12)"5[151] MORE MINUTES" 2940 POKE214,13:PRINT:PRINTTAB(12)"OF PLAYING TIME!" 2950 FORX=1TO4000:NEXT 2960 RETURN 3000 PRINT"[154]YOU'VE BEATEN THE HIGH SCORE! 3010 [153]" ENTER YOUR NAME PLEASE" 3020 [153]" TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN" 3030 [153]"ONON";:LN%[178]16:TY%[178]6:Q6[178]0:[141]2750:HS$[178]YA$ 3040 [159]15,8,15,"S0:TOP SCORE":[160]15 3050 [159]3,8,3,"TOP SCORE,S,W" 3060 [152]3,HS 3070 [152]3,HS$ 3080 [160]3:[142] 10000 [159]15,8,15,"S0:US CITIES":[160]15:[148]"US CITIES",8:[128] 61000 [151]214,13:[153] 61110 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE" 61120 [153]" PRINT# " 61130 [153]"  (null)(null)RIGHT$(null)VALSTR$ (null)(null)ATN(null)VAL(null) LENRIGHT$(null)RIGHT$VAL(null) " 61140 [153]"  BY (null)OGER (null)ORTON " 61145 [153]"  (C) 1989 BY (null)(null)ASC(null)STR$RIGHT$(null)(null), RIGHT$(null)LEN. " 61150 [153]"  (null)UBLISHED ON (null)(null)ATNSTR$(null)(null)ATN(null) #64 " 61160 [153]"  (null)UBSCRIPTIONS 1-800-831-2694 " 61170 [153]"  ATNLL RIGHTS (null)ESERVED " 61180 [153]"  " 61190 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS" 61195 [142]